11556 IF HID$(Y¢.Y.1)¤","THEN1155B
11557 NEXTIRETURN
11558 Y$=RIGHT$(Y$.LEN(Y$>-Y):Y9#Y9+1
11559 X(28+Y9}=UAL<Y$>IGUTD11555
11688 Y1$=“TUNH SEG.GEN."IRHH*#I*****33
11681 IFLENtYw)>8TMEN14958
11682 Y2$¤Y$
11683 IFYE=1THEN11628
11684 Y5$=“BU7":G05UH16818
11685 Y5$="AU"+Y2$:GDBUB16818
11686 Y5$="BD18":BDSUE16818
11688 Y5$="HU6“:GUSUB16818
11618 RETURN
11628 YE¤8:GDBUE11958
11622 Y=8:GUSUB18758
11626 Y=Xl6):GU$UH18358
1162B Y5$="B8.ZZ8":GUSU816818
11638 YmX(1):GUSUH18358
11632 Y5$="3G185":GD5UB16818
11634 Y$=Y2$1GH5UH11684
11636 GGSUB12888:IFY>.1THEN11636
11633 GUSUB11658IY2%=Y$
11648 Y5$¤·e·!$U1B6*‘: |3USL1B16B18
11641 GU5UB13858
11642 Y¤1;GU5UBL8758IY¤8IGUSUB1865B
11643 Y¤1rGD5UB18658:GU5UE18458:GU5UB1135B
‘11644 Y$=Y2$:RETUHN
11658 Y1$="TDNE-SEH.DEC.“:REHl*#*****34
11651 Y5$="HD11":GUSUH16818 ‘
11652 GDSUE168E8
11654 IFLEFT5(Y5$.2)<>"TD"THEN14958
11656 Y$(5)=““
11658 FDR Y1=3TD18
11668 Y$(4)¤HID$(Y5$.Y1.1)
11662 IFH5C{Y$(4))}57THENY$<4J=EHR$<ASC(Y$(4l)+?)
11663 IFY$(4)="F“THENY$t4)=" “
11664 Y$(5)=Y$f5)+Y$(4)
11666 NEXTYI
11668 Y$=Y$(5)
11698 RETURN
11788 Y1$="DE~UULT.MEA§.":REH*X$l¥¥KX35
11781 T3$=“EY"iGUTD11312
11758 Y1$="DE~CURRENT—HEAS."ZREHIXSKXB6
11751 Y3$¤"DYYY"ZGDT811312
11888 Y1$=“NGPU CURRENT-H£AS."IREH*#*37
11881 GUSUH1178B
11882 Y¤X(11)IYX18IRETURN
11858 Y1$¢"AF-LEVEL MEAN-UAL."IREH***38
1.1H51 Y1==B
211852 FDRYZMITUYZY5$¤"RX.“:GDSUB16818:GUSUB16888:Y1=Y1+VAL{HID$(Y5$.3.9}
11853 Ym(INT(188888*T1/Y)P/188:RETURN
11988 Y1$="UNIU. ADdU5THENT“IREM*****39
11983 YF¤8:Y1¤Y1/188:Y9=8IY8=Y6/Z
1.1986 Y=‘¤'6:R·=Y4: I1§ElSL!B9BBB:+'<=Y2:GDSUE¤98B8:Y7=Y
11987 IFRB5(Y/Y8~1)<Y1THENY1=Y6:RETURN
11983 IFY7=Y9DRY6¤YBTHENYF=YF+1:GDTD11911
11989 Y5¤(mB8tY5))KSGN((Y7—Y9)/(Y6-Y8>>
11911 IFYF=5THENY1=Y6:RETURN
11912 IFY7>Y8ANDY9>Y8THEN11921
11915 IFY?<Y8AHDY9<Y8THEN11921
11918 Y5¤Y5/2
11921 YB¤Y6:Y9¤T7:Y6=INT(1E4$(Y8+Y5*SGN(Y8-Y9)>+.5}/1E4:GDTU11986
11958 Y1$="TRANSHITTHR-TEST"!RHH*$#**48
11951 Y5$=“AT."iGDSUB16818!RETURN
12888 Y1$¤"RF FUNER":REH**¥$********#41
12881 Y3$=“AH“:GUTU11312
12858 Y1¤¤"RF FREGU.ERRDR"!REH**I¥KI#42
12851 Y5w¤"mT.":GU5UB16818:GUSU816888
N12B5Z IFLEFT$(Y5$.2J="RF"THENY¤INT(.1X(1E7¥(UAL(MIDt(Y5$.3.15}}-X(6>)+5l